We find the orignal information here.
This report and analysis on Seattleās bicycle sharing trends. The data includes weather reports for the area, the station locations, and trips taken by cycle riders. Future explorations could include the addition of other forms of public transportation for the Seatle area to better understand commuter travel trends.
Lets take a look at where the rental stations are located in Seattle!
## n_distinct(install_date)
## 1 9
## # A tibble: 9 x 2
## install_date count
## <date> <int>
## 1 2014-10-13 50
## 2 2015-05-22 1
## 3 2015-06-12 1
## 4 2015-07-27 1
## 5 2015-09-15 1
## 6 2015-10-29 1
## 7 2016-03-18 1
## 8 2016-07-03 1
## 9 2016-08-09 1
## n_distinct(station_id)
## 1 58
## note : locations should be specified in the lon/lat format, not lat/lon.
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=47.6,-122.35&zoom=12&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
closeUp <- get_map(location = "Seattle", maptype = "roadmap", zoom = 13)
# Plot a single point for each Station ID
ggmap(closeUp) + geom_point(aes(x = long, y = lat), data = station_locs,
alpha = 1, color = "darkred", size = 3)
Stations map Zoomed In
Look at all those stations!
Current Dock Count
Here is a histogram of the number of bikes per station.
Change in Number of Bike Docks Per Station
Here is a map of how many times dock changed occured per station.
Current Station Size
11 stations lost bike docks, 39 docks stayed the same, 8 stations gained docks.
Time to visualize the number of rides per day
Trips Per Month (By Season)
Average Trip Duration